www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Admin_SolutionEdit.asp
<!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="FCKeditor/fckeditor.asp" -->
<!--#include file="Function/Function_Solution.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="copyright" content="Copyright 2008 dananshan.com" />
<meta name="Author" content="闪电文章管理系统技术支持---www.dananshan.com" />
<meta name="Keywords" content="闪电文章管理系统文章管理系统" />
<meta name="Description" content="闪电文章管理系统文章管理系统" />
<title>添加校园服务</title>
<link href="style.css" rel="stylesheet" type="text/css" />
<script src="../js/check.js" type="text/javascript"></script>
</head>
<body>
<%
'========判断是否具有管理权限
if Instr(session("AdminPower"),"|32,")=0 then
response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
response.end
else
if Request.QueryString ("Form")="Edit" then
call Edit_Content()
else
call Add_Content()
end if
end if
%>
</body>
</html>
<%
Function Add_Content()
response.Write "<form method='post' action='?action=add'>"
response.Write "<div id='frame_Toolbar' class='toolbarBg'>"
response.Write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>"
response.Write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a><span class='split ftSplit' ></span>"
response.Write "<div id='guide' class='light_orange'>请填写校园服务！</div>"
response.Write "<div class='pageInfo right light_gray'></div>"
response.Write "</div>"
response.Write "<table class='cTable_2 table'>"
response.Write "<tr class='cTitle toolbarBg'>"
response.Write "<td width='15%'><div>添加校园服务</div></td>"
response.Write "<td></td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>服务名称：</td>"
response.Write "<td><input name='SolutionName' type='text' size='40' onBlur='check_SolutionTitle(this.value);'>"
response.Write "<input name='IsShow' type='checkbox' value='checkbox' checked>发布 <span id='span_SolutionName'>请填写服务标题</span></td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>信息来源：</td>"
response.Write "<td><input name='Source' type='text' size='40'></td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>显示顺序：</td>"
response.Write "<td><input name='Sequence' type='text' size='40' onBlur='check_SolutionSequence(this.value);'> <span id='span_Sequence'>填写显示顺序(为整数)</span></td></tr>"
response.Write "<tr>"
response.Write "<td valign='top' class='tRight'>信息内容：</td>"
response.Write "<td>"
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath="fckeditor/"
oFCKeditor.ToolbarSet="Idea"
oFCKeditor.Width="550"
oFCKeditor.Height="350"
oFCKeditor.Value=content
oFCKeditor.Create "Content"
response.Write "</td>"
response.Write "</tr>"
response.Write "</table>"
response.Write "<div id='cEndToolbar' class='toolbarBg'>"
response.Write "<div class='caButCase'>"
response.Write "<input type='submit' name='Btn_OK' id='Btn_OK' value='确认添加' disabled='disabled' class='button'> "
response.Write "<input type='reset' name='Submit2' value='清空重填' class='button'>"
response.Write "</div>"
response.Write "</div>"
response.Write "</form>"
End Function
Function Edit_Content()
ID=trim(request("ID"))
if ID<>"" and IsNumeric(ID) then
sql="select * from Idea_Solution where ID="&ID
set rs=idea.exec(sql,1)
do while not rs.eof
response.Write "<form method='post' action='?Action=update&ID="&ID&"'>"
response.Write "<div id='frame_Toolbar' class='toolbarBg'>"
response.Write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>"
response.Write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a><span class='split ftSplit' ></span>"
response.Write "<div id='guide' class='light_orange'>请填写校园服务！</div>"
response.Write "<div class='pageInfo right light_gray'></div>"
response.Write "</div>"
response.Write "<table class='cTable_2 table'>"
response.Write "<tr class='cTitle toolbarBg'>"
response.Write "<td width='15%'><div>编辑校园服务</div></td>"
response.Write "<td></td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>服务名称：</td>"
response.Write "<td><input name='SolutionName' type='text' size='40' value='"&rs("SolutionName")&"' onBlur='check_SolutionTitle(this.value);'>"
if rs("IsShow")=true then
response.Write "<input name='IsShow' type='checkbox' value='checkbox' checked>发布"
else
response.Write "<input name='IsShow' type='checkbox' value='checkbox'>发布"
end if
response.Write " <span id='span_SolutionName'>请填写方案标题</span> </td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>信息来源：</td>"
response.Write "<td><input name='Source' type='text' size='40' value='"&rs("Source")&"'></td>"
response.Write "</tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>显示顺序：</td>"
response.Write "<td><input name='Sequence' type='text' size='40' value='"&rs("Sequence")&"' onBlur='check_SolutionSequence(this.value);'> <span id='span_Sequence'>填写显示顺序(为整数)</span></td></tr>"
response.Write "<tr>"
response.Write "<td valign='top' class='tRight'>信息内容：</td>"
response.Write "<td>"
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath="fckeditor/"
oFCKeditor.ToolbarSet="Idea"
oFCKeditor.Width="550"
oFCKeditor.Height="350"
oFCKeditor.Value=rs("content")
oFCKeditor.Create "Content"
response.Write "</td>"
response.Write "</tr>"
response.Write "</table>"
response.Write "<div id='cEndToolbar' class='toolbarBg'>"
response.Write "<div class='caButCase'>"
response.Write "<input type='submit' name='Btn_OK' id='Btn_OK' value='确认添加' class='button'> "
response.Write "<input type='reset' name='Submit2' value='清空重填' class='button'>"
response.Write "</div>"
response.Write "</div>"
response.Write "</form>"
rs.movenext
loop
rs.close
set rs=nothing
end if
End Function
%>